home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
akcl
/
kcl.lha
/
cmpnew
/
cmpif.data
< prev
next >
Wrap
Text File
|
1986-09-06
|
1KB
|
88 lines
#(
#!
(lisp::in-package 'user::compiler)
lisp::if
compiler::c1if
compiler::c1special
compiler::c2if
compiler::c2
lisp::and
compiler::c1and
compiler::c1
compiler::c2and
lisp::or
compiler::c1or
compiler::c2or
compiler::jump-true
compiler::set-jump-true
compiler::set-loc
compiler::jump-false
compiler::set-jump-false
lisp::case
compiler::c1case
lisp::ecase
compiler::c1ecase
compiler::c2case
2
3
lisp::not
1
0
compiler::fmla-and
compiler::fmla-or
compiler::fmla-not
compiler::*last-label*
compiler::location
compiler::*value-to-go*
compiler::trash
compiler::*exit*
lisp::return
compiler::*unwind-exit*
compiler::*compiler-output1*
compiler::jump
compiler::var
compiler::*vs*
compiler::vs
compiler::call-global
compiler::predicate
compiler::inline-cond
"The CASE clause ~S is illegal."
"ECASE had an OTHERWISE clause."
"CASE had more than one OTHERWISE clauses."
compiler::*next-cvar*
compiler::*inline-blocks*
(lisp::t)
5
4
compiler::c1fmla-constant
compiler::c1fmla
compiler::cjt
compiler::cjf
compiler::too-few-args
compiler::too-many-args
compiler::c1expr
compiler::c1nil
compiler::make-info
compiler::c1expr*
lisp::null
compiler::c1t
compiler::wt1
compiler::c2expr
compiler::unwind-no-exit
compiler::c2expr*
compiler::c1args
compiler::unwind-exit
compiler::wt-var
compiler::vs-push
compiler::wt-inline-loc
compiler::cmperr
lisp::otherwise
compiler::c1progn
compiler::add-info
compiler::add-object
compiler::inline-args
compiler::add-symbol
compiler::close-inline-blocks
)